'From Pharo1.2.1 of 2 April 2011 [Latest update: #12345] on 20 October 2011 at 4:54:02 pm'!TestCase subclass: #TesteProximoElemento	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Jogo-Do-Laser-Testes'!!TesteProximoElemento methodsFor: 'as yet unclassified' stamp: 'luigugah 10/20/2011 16:54'!testProximoElemento	| elementoPercurso grade celula novoElementoPercurso |		grade := Grade novaGradeComLinhas: 5 eColunas: 5.		celula := grade celulaInicial. 		self should: [ celula posicaoNaGrade = (1@5) ].	elementoPercurso := ElementoPercursoLaser novoCelula: celula entradaLaser: #baixo.		novoElementoPercurso := elementoPercurso proximoElemento: grade.	self should: [ novoElementoPercurso celula posicaoNaGrade = (1@4) ].	self should: [ novoElementoPercurso entradaLaser = #baixo ].! !